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MMM MMM GGG 6GGGGGG6GG 
MMM MMM GGG GGG 
MMM MMM GGG GGG 
MMM MMM GGG GGG 
MMM MMM GGGGGGGGG 
MMM MMM GGGGGGGGG 
MMM MMM GGGGGGGGG 


C 12 


AAI I tH A tS 
AAA tt tt HH tS tH 
tt tt a St SH Se 


L 

LLELLLELLLLLLLLL 
LLLLLLLLLLLLLLL 
LELLLLLLLLLLLLL 


FE a ee a a el el el el el 


SN 
Ro ono 


—**F I LE®*1D**SMGDISDHW 


33333 3 
333333333 33333 
23° 
33 
I 3333333 
33333333333333 
ZErITITITIITIIIIITTt 
ZEtrrTtITITIITITITIrIItTt 
x= 
x= 
x= 
=z==x 
xix 
z= 
ZEETITITIITIITIrIrIITt 
ZErrIrTITIEITITITITIIrITTt 
20Q200000000 
2600600085 
aa aa 
aa aa 
aa aa 
aa aa 
aa aa 
aa aa 
SBQ0000R8000000 
SQ600000088886 
' 
nn MNNwM | 
own ANMM 
nn nn nn 
nn an nn 
nn nn nn 
nn nn nn 
nn nn nn 
nn an nn 
NNNM Wn 
NNNYM nn 
— oe eo 


OO ak ad td Od Od 8 Os Ot ts Od Os 
ek Ok Ok Od ad Od at Od Od Od Od 


—e. —e 
— ee 
OOOO 004S238 
Saonaoaoaoaoaaana 
aa aa 
aan aa 
aa aa 
aa aa 
aa aa 
aa aa 
ana OBAa Aaa Aaa aAaAaAakn 
Sooo oaoooAaaaaana 
uo 2 TUT) nw Mnnnwn 
uo vuouo"No nw nnnnwn 
wo ovo oo nw nn wn 
ovo ovo uo nn wn nn 
ovo oOovU oo mn nw nw 
ovo oo uo"o nn nw nw 
oo ovo nw nn wow 
oUo oo nn nw nw 
YVIVUN VVVOUNVVUYOU Munn nn 
OVI OU VU VNU MMMM nn 
rE —_— —— 
—_—— — 
zz ok Ok ad Ok ng ng eg ng Ot Og OG OO 
Oe ad Os ae ad Oe Ot Od OG OG OS OG OD 
rE ae a oe 
= _— ——, 
EEESEEEEEEEEEE 
nn MNNWN wall aa 
nn NMNMNM olin 
nw nn nn onthe 
wn nn wn = ad 
ww vn ww =d ad 
nn “nw nn iiadieall 
ww nn nn owl 
DD ed wc ed eed ed ed aed ed eed) eed ed ed 
MMMM nn cc ed wd ed ed ed ed ad ed ed ad dd 


 iasarmen gsmaveenaterascx-<i renee eater meana eeeaceeaer care eens ; 
| 
| 


N 4 
SMGSDISPLAY_DHD Display double high/double wide chars 16-Sep-1984 00: 53:26 AX-11 Bliss-32 V4.0-74 
14-Sep-1984 :09:40 SMGRTL.SRCISMGDI SOHW.B 2;1 
ou 
il 


MODULE SMGSDISPLAY_DHDW ( &%TITLE ‘Display double high/doubl ide chars' 
IDENT = '1-004F° SPAY W832. 


: File: SMGDISDHW.B32 Edit: STAN1004 


ooo 
loloto) 
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BEGIN 


SRE R RARE RARER AERA AEE E ETE R REAR AA AAA 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
it DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


® 
® 
7 
4 ® 
i THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
iw ONLY IN ACCORDANCE WITH THE TERMS LICENSE AND WITH THE ®* 
ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. * 
* 
is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
iw AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
ie CORPORATION. ‘ 
® 
® 
* 
a 
® 
* 


iw DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!t SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


Lee AERA AREER A ARERR E AERA AEE 
' 


BEBE EE BANANA AAAI NPP NININONINIDD 2 OO ee ae 
SOON AWNE WN 0 OONA VUE WN ( O ODNOU EWN CO ODONOU EWN“ OOONOUES wh 


0044 1 ! 1-001 = Original. PLL 20-Jul-1983 | 
Bhez ! 1-002 - More tweaks to cursor position. PLL 31-Aug-1983 


! 1-005 = Check the Length of the string before moving it into the 
: DCB buffer, PLL 7-Oct-1983 : 
! 1-004 = Don't say just one Line has changed in DHW. STAN 77-Jul-1984. 


it) 
0 '++ 
} FACILITY: Screen Management 
00 ABSTRACT: 
0 : This module contains routines to write double high/double wide 
8 characters to a virtual display. 
00 : ENVIRONMENT: User mode - AST reentrant 
004 AUTHOR: P. Levesque, CREATION DATE: 20-Jul-1983 
004 i MODIFIED BY: 
004 
' 
! 
! 
' 
‘ 
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32600 Dec erations . 
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OONAULS Wr 
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3 
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rEe ERE REE EE EF 
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a ee ee LL 


XSBTTL ‘Declarations’ 
! SWITCHES: 


REQUIRE 'RTLIN:SMGPROLOG'; 

REQUIRE *RTLIN: STRLNK'; 

LINKAGES: 

NONE 

TABLE OF CONTENTS: 

FORWARD ROUTINE 
SMGSPUT_CHARS_WIDE 


SMGS$PUT~ CHARS HIGHWIDE, 
SMGSPUT_LINE_QIDE; 


INCLUDE FILES: 


MACROS: 


'¢ 


1984 00:22:24 AX=11 Bliss-32 V4.0-74 P 
5-19 4 99:65:20 SMGRTL.SRC Sing! SOW B82; 1 a (25 


! JSB Linkage for string routines 


! Write dbl wide chars. 
! Write dbl high dbl wide chars 
: Write dbl wide w/advance 


i The following macro determires whether scrolling up, down, or neither 


should occur. 


MACRO SSMGSSET_SCROLLING (SWITCH) = 
BEGIN 


SWITCH = 0; 
IF .0CB CDCB_V_FULL] NEQ 0 
THEN 


TF DCB CDCB_W_CURSOR_ROW] EQL .DCB CDCB_W_BOTTOM_OF _SCRREG) 
SWITCH = 1 ! scroll up 
IF .DCB CDOCB_W_CURSOR_ROW] EQL .DCB COCB_W_TOP_OF _SCRREG) 
SWITCH = 2; ! scroll down 


END; 
END;%; 
EQUATED SYMBOLS: 
NONE 
FIELDS: 


a — 


—n 
am 


| 


—— 


| SMGSDISPLAY_DHD Display double high/double wide chars 
| 1-004 Declarations 


NONE 
PSECTS: 


i OWN STORAGE: 
i NONE 
i EXTERNAL REFERENCES: 


XTERNAL ROUTINE 
LIBSANALYZE_SDESC_R2 
SMGSSSCROLL AREA, 
SMGSSCHECK FOR_OUTPUT_DCB, 
SMG$SPUT_TEXT_TO_BUFFER; 

EXTERNAL LITERAL 


LIBS~INVSTRDES, 
SMG$_WRONUMARG: 


> Wi A ODONAME UW ODO NOMP UNOS 
ee ole al al elo el olel ol al aleleolelelelolalealelealola) 


WWNWWAWAAWAWAWAAw 
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— — a a dw 8 8 
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AX-11 Bliss-32 V4.0-74 Page 3 
SMGRTL.SRCISMGDISDHW.852;1 (2) 


: LIBSANALYZE _SDESC_JSB LINK, 
sc 


' Scroll virtual display area 
! check if time to repaint display 
put text in OCB buffer 


Invalid display id 
Invalid argument 

Invalid column number 
Invalid row number 
Invalid string descriptor 
Wrong number of arguments 


_ —o 
13 
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BeBe Be Be Be BH Se Be Be Oe FFs Oe Ge BH Se Se Be BH Se FH He SH Se OH Oe Be Se Be Oe Be Be Oe Oe Os Oe Oe Oe Oe Oe Oe Oe He Oe Oe Os Ose Oe Oe Oe OH Oe Oe Se ee ee 


RENDITION_COMPLEMENT.rl.r Optional. Each 1 bit attribute in this. 
parameter causes the corresponding attribute 
to be complemented in the hed pal (S$ 


ee 
e attributes.) 
If the same bit is specified in both the RENDITION_SET parameter 


below for List of complementa 


~s 

SDISPLAY_DHD Display double high/double wide chars 16-Sep-1984 00:22:24 AX-11 Bliss-32 V4.0-74 
"Oo SMG PUT_CHARS. WID - Write wide characters 12-80 8- 1 obe 99:8 740 ESMGRTL-SRe SMGDISOHW.852;1 

1 95 1 ZSBTITL "SMGSPUT_CHARS WIDE = Write wide characters’ 

1 96 1 GLOBAL ROUTINE SMGSPUT_CHARS_WIDE ( 

138 97 1 DISPLAY_ID, 

Fe a : yt L wer BLOCK C,BYTE], 

14) 0200 1 COL_AO, 

$6 401 1 RENBITION_SET 

124 oc08 | ue 

145 0404 1 ) = ~ 

146 0405 1 

147 0406 1 !++ 

be Bebe : FUNCTIONAL DESCRIPTION: 

150 0409 1! This routine writes double wide characters to a virtual 

151 0410 1! display. The Line can not contain a mixture of single 

136 0411 1! wide and double wide characters; if the Line previously 

15 pele iz contained single wide, then the entire Line will be re- 

128 Retz : written, otherwise only the specified text is written. 

156 0415 1! The internal cursor poust ten is left at the character 

14 Beis : position following the text written. 

159 0418 i CALLING SEQUENCE: 

161 0420 1! ret_status.wlc.v = SMGSPUT_CHARS_WIDE (DISPLAY_ID.rl.r, 

lee 0421 1! TEXT. rt.dx, 

16 Res 1! C,LINE_NO.rl.r, COL_NO.rl.rJ 

164 4e3 1 | C RENDITION SET.rl.r) 

165 0424 1! eR NDITION_ COMPLEMENT. rl.rJ 

198 bee ; oh AR_SET.rl.rJ 

168 0427 FORMAL PARAMETERS: 

4 Be , : : DISPLAY_ID.rl.r Display id of virtual display 

17@ 0451 TEXT. rt.dx Address of descriptor of output string 

174 0033 7? LINE_NO.rl.r Optional. Address of Line number at which 

175 0434 1! to start output. If omitted (=0), the 

ite ot H : current Line number is used. 

178 0437 1! COL_NO.rl.r Optional. Address of column number at which 

179 0438 1! to start output. If omitted (=0), the 

130 ote4 : current column number is used. 

Hs) 0441 1} RENDITION_SET.rl.r Optional. Each 1 bit in this parameter 

18 Bees 1! causes the corresponding attribute to be 

184 0445 1! set in the git: © (See below for List 

132 ek: : of settable attributes.) 

187 1! 

188 1! 

189 2. 

190 1! 

19 1! 

19 7: 


N— 


' 
| 
i 
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SDISPLAY_DHD Display double high/double wide chars bese 1984 00:22:24 AX=11 Bliss-32 V4.0-74 
; SMGBPUT_ CHARS, WIDE bad orite wide characters 1e-8ep-19 * 99:88:26 SMGRTL S CUSMGDISOHW.B 2;1 
: 193 4 =. and in the RENDITION_COMPLEMENT parameter, the application is 
; 196 4 : ;! RENDITION_SET followed by RENDITION complement. PEsing these two 
s 39% 454 1! parameters together the caller can exercise arbitrary and 
: 138 455 1! independent control over each attribute on a singte call. On an 
; 1 4 § = attribute by attribute basis he can cause the following 
; Ps tet : transformations: 
: 200 0459 1 | SET COMPLEMENT Action 
> 20 461 1 | 0 | Bees — REEF TBute unchanged. 
H 08 462 1! 1 Attribute set too on" 
> 204 0465 1! 0 1 Attribute set to complement of 
: 205 0464 1! current setting. 
: $e Ree? ; 1 1 Attribute set to ‘‘off"’. 
: 208 hao? 1 | 
: 4 ee : Attributes which can be manipulated in this manner are: 
; $11 O70 1: SMG$M_BL INK displays characters blinking. 
3 sig 0471 1! SMGSM_BOLD displays characters in higher-than-normal 
; si 0472 1! intensity. 
: 216 0475 1! SMGSM_REVERSE Siseters characters in reverse video -- that is, 
> 215 0474 1! using the apeeete default rendition of the 
; 518 0475 1! virtual display. : 
: sit Bee : SMGSM_UNDERLINE displays characters underlined. 
: 219 0478 1 
; 220 0479 1! CHAR_SET.rl.r Optional. Character set to use. Choices are: 
3 221 9480 1 ! SMG$C_UNITED_KINGDOM 
; $$¢ 0481 1! SMGS$C_ASCII (default) 
H 2 0482 1! SMG$C_SPEC_GRAPHIC 
; 224 0483 1! SMG$C_ALT_CHAR 
; $$? et: : SMG$C_ALT_GRAPHICS 
; 327 0486 1 i IMPLICIT INPUTS: 
; 39 0488 1: NONE 
: 230 0489 1! 
; $3) Beas : IMPLICIT OUTPUTS: 
: 233 0492 1: NONE 
; 234 0495 1! 
: $3, Ree ' : COMPLETION STATUS: 
; $39 496 1! SS$_NORMAL Normal successful completion 
3; 238 0497 1! SMGS$_INVCOL Invalid column number 
; 239 0498 1! SMG$_INVROW Invalid row number | 
: 240 0499 1! LIBS_INVSTRDES Invalid string descriptor 
: .3 Bene ! SMG$_WRONUMARG Wrong number of arguments 
; “8 050¢ | i SIDE EFFECTS: 
> 245 0504 1 | NONE 
: 246 Ban? 1! 
: v4 0506 1 !-- 
; 248 0507 1 
3 249 0508 2 BEGIN 
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AX-11 Bliss-32 V4.0-74 
UT_CHARS_WID SMGRTL.SRCIJSMGDISOHW.B52;1 
BUILTIN 

NULLPARAMETER; 


LOCAL 
DCB 


- Write wide characters 


: REF BLOCK C,BYTEJ, address of virtue display 


control bloc 


' 
' 
ROW, ' working row 
COL : werner column 
REND CODE, ! rendition code to use 
STR_CEN : INITIAL (0), ! Length of text string 
STR_ADDR, ! address of text string, 
STATUS; 
LITERAL 
K_LINE_ARG = 3, 
“COL_ARG = 4, 
T_ARG = 5 


“SE 
K-COMP_ARG = 6, 
K"CHARTARG = 7; 


SSMG$GET_DCB (.DISPLAY_ID, DCB); ' get addr of virtual display 
' control block 


SSMGSVALIDATE_ARGCOUNT (2, 7); 
+ 
Get the length and address of the text string. 
IF NOT (STATUS = LIBSANALYZE_SDESC_R2 gti ys 
STR-ADDR) ) 
HEN 
RETURN (.STATUS); 
1+ 


! Check for optional arguments. Set local variables to caller's 
values, when available, and defau.ts when arguments omitted. 


IF NOT NULLPARAMETER (K_LINE_ARG) AND 
— NULLPARAMETER (K_COL_ARG) 
BEGIN 
ROW = ..LINE_NO; 


COL = ..COL_NO; 
SSMGSVALIDATE_ROW_COL (.ROW, .COL); Eee ee 
' verify row & col within display 


END 
BEG 
ROW = .DCB [DCB_u_CURSOR ROW]; 
COL = .DCB CDCB_W_CURSOR-COL I; 


SSMGSSET_REND_CODE (K_SET_ARG, K_COMP_ARG); . 
! macro to use caller's args if present 


ROPOPRIPIWIWI AIAN AIWNIAPIPUIPIPUNIPIPIPINIDNI ANI WIPOPONOPONOPoNoNon Nonny 
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SMGSPUT_CHARS_WIDE = Write wide characters 14<$ 71982 9: 86:26 SMGRTL.SRC SMGDISDHW. 8 2;1 
s 7 6 
3 08 288 IF NOT NULLPARAMETER (K_CHAR_ARG) 
: 309 298 THEN 
: 10 8 BEGIN 
: 12 0371 gare «+CHAR_SET FROM SMGSC_UNITED_KINGDOM TO SMGS$C_ALT_GRAPHICS OF 
; 31 057 
; 14 $356 CSMGSC_UNITED_KINGDOM, SMGS$C_ASCII, SMGSC _SPEC_GRAPHICS, 
> 315 0574 SMGSCALT_CHAR, SMGSC_ALT_GRAPHICS): 
Me Be : 
: 318 0377 CINRANGE, OUTRANGE): 
> 319 576 RETURN (SMGS_INVARG); 
s peo 0579 
3 «(Sel 0580 TES; 
: $6 0581 END; 
iB et. 
: 325 0584 i Double wide characters occupy two positions instead of one on the 
; $$ 0585 i screen. However, for mapping purposes we store the text only half 
; 7 0586 i way over in the text buffer. 
: 356 a 
: $8 0589 COL = (.COL + 1)/2; ' col in half for dbl wide 
asap 
: 35 B26 i Set the double wide characteristic in the DCB. 
; 34 059 ie 
3s 355 0594 
3 Bey one 
; 38 0597 ap DEBALCV = .DCB CDCB_A_LINE_CHAR]; 
; 40 0599 DCB_LCV : VECTOR C,BYTE); 
: 342 IF .DCB_LCV C.ROW] NEQ LINE_K_WIDE ! previously single wide 
: 343 bons THEN i or double high 
eo ee sit 
: 346 0605 START_INDEX; 


WAN WANNA NWN NAAN NIAAA AAA AAA 
o 
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o 
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47 0606 START_INDEX = SSMGSLINEAR (.ROW, 1); 

48 0607 were a ae tee (.DCB 4 pce. W NO. -COLS], .START_INDEX); 

49 0608 C.ROW) = LINE_K_WID T sét this row to-dbl wide 

50 0609 r 

51 0610 : 

2 0611 DCB_LCV (OJ = 1; ! mark that there are wide or 
5 belg ! dbl high/wide chars in display 
54 061 END; 

55 0614 

56 0615 '¢ ‘ , 

57 pol8 i ALL local variables are set up. Call routine to put text into 

58 pe! i the display buffer. 

59 618 ie 

60 +984 

61 620 BEGIN 

62 0621 CAL 

63 0622 PRINT_LEN; 


—— 
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CHARS _WIDE = Write wide characters 


1Sosenntgne 09:38:26 


AX-11 Bliss-32 v4.0- Page 
SMGRTL.SRC Shep i sou. 5 2;1 


SSMGSFIND_PRINT_LENGTH (STR LEN, »STR_ADDR, PRINT_LEN); 
' don't count non-printable chars 


i SMGSSPUT_TEXT_70_BUFFER doesn’ t realize that wide characters 


14 

' occupy 2 spacés So it won't recognize overflow. 

i we don't try to put more chars in buffer than will 

a this Line. 

iF -PRINT_LEN GTR ((.DCB CDOCB_W_NO_COLS] = 1)/2) 
PRINT_LEN = (.DCB COCB_W_NO_COLS) = 1)/2; 


DCB CDCB_W_CURSOR_ROW] = .ROW; 
DCB CDOCB7W>CURSOR-COL = COL; 


Make sure 


fit on 


osition for put_text 


IF NOT (STATUS = SMG$S$PUT _TEXT. ai BuFrer ¢. 


REND_CODE, 


-PRINT LEN, 


.STR_ABDR, 
iF NOT NULLPARAME TER (K_CHAR_ARG) 


THEN ..CHA 


ELSE SMGSC ASCII) 


HEN 
RETURN (.STATUS); 


'4 
i Correct the cursor position. 


We stored our text half way over in the 


i buffer, but the screen cursor position should be calculated based on 


i the actual starting column specified _by the caller. 
- account that characters occupy 2 positions. 


DCB CDCB_W_CURSOR_COLJ = 
END; 


+ 
See if this change should be reflected on the screen. 


RETURN (SMGSS$CHECK_FOR_OUTPUT_DCB (.DCB 
“SRGEC PUT. CHARS, 


END; ' End of routine 


- TITLE 
- IDENT 


Also take into 


(2 * .COL) + (2 * .PRINT_LEN) = 1; 


SMGSPUT_CHARS_WIDE 


SMGSDISPLAY_DHDW ot splay double high/double wid 
e chars 
\1-004\ 


Ms ery Mey =ppese R2 
SMG$$SCRO 
SMCS CHECK t POR duteut DCB 
anesee PUT_TEXT_TO 

NVBIS ‘1, SRS INVARG 
one §- INvcors SMG$_INVROW 
LIBS~ INVSTROES, sacs _WRONUMARG 
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56 
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double ee wide chars 


_CHARS_WID 
04 
50 
08 
0c 
AB 
AB 
04 


50 000000006 


10 
50 


38 

OG 

000000006 
04 


0 08 
000000006 


000000006 


000000006 
s 
A 
2E 
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- Write wide characters 
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1$: 
2$: 


3$: 


4$: 


5$: 
6$: 


7$: 
8$: 
9$: 
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SMGRTL.SRCJSMGDISDHW.B32;1 (3) 
-EXTRN SMGS_FATERRLIB, CHAR_TABLE 
«PSECT _SMGSCODE,NOWRT, SHR, PIC,2 
-ENTRY SMGSPUT_CHARS_WIDE, Save R2,R3,R4,R5,R6,R7,-; 0396 
RB_RO RTOAT : 
wy ate. SF : 9508 
MOVL aDISPLAY_ID, RO : 0529 
CMPL © 56(RO), SDISPLAY_ID : 
BNEQ ~='1$ : 
CMPB 8(RO), #17 : 
BEQL $ 3 
MOVL #SMG$_INVDIS_ID, RO : 
MOVL.  @DISPLAY_ID, DCB : 
SUBB3 #2, (AP)> DIFF + 0532. 
CMPB . : | 
BLEQU : | 
MOVL #SMG$_WRONUMARG, RO ; | 
MOVL ‘TEXT, RO : 0538 
JSB LIBSANALYZE_SDESC_R2 : | 
MOVL RO, STATUS : | 
MOVL Ri, (SP) : 
MOVL  R2, 12(SP) : 
BLBS STATUS, 4 : 
BRW 24$ : 
CMPB CCAP), #3 : 0549 
BLSSU BS : 
TSTL  12¢AP) : | 
BEQL 8$ ; 
CMPB Ss AP), 4 : 0550 
BLSSU 8$ : 
TSTL 16(AP) : 
BEQL 8$ 3 
MOVL  @LINE_NO, ROW > 0553 | 
MOVL acoL_No, COL : 0554 | 
TSTL ROW : 0555 
BLEQ 5$ 3 
CMPZ2V #0, #16, 2(DCB), ROW : 
BGEQ F 
MOVL #SMG$_INVROW, RO ; 
TSTL COL ; 
BLEQ - 
CMP7V #0, #16, 6(DCB), COL : 
BGEQ 3 
MOVL #SMGS$_INVCOL, RO ; 
MOVZ2WL 40(DCB), ROW > 0560 
MOVZWL 42(DCB), COL > 0561 
MOVZBL 46(DCB), REND_CODE > 0564 
CMPB CCAP), #5 ; 
BLSSU 108 ; 
TSTL  20(AP) ; 
BEQL 10$ : 
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SMGSPUT_CHARS_WIDE = Write wide characters 14-Sep-1984 SMGRTL.SRCIJSMGDISDHW.832;1 
06 AE 14 Bc C8 AC BISL2 @RENDITION_SET, REND CODE 3 
06 C $j a081 10$: CMPB (AP), #6 ~ " : 
A 1F 00084 BLSSU : 
18 a bs 0086 TSTL 4(AP) : 
0s (1 008 BEQL 1$ : 
04 AE 18 BC ge 008 XORL2 @RENDITION_COMPLEMENT, REND_CODE 3 
0 6C 91 000CO 11$: CMPB (AP), : 0567 
1c (1 o0¢ BLSSU_-'13$ : 
1¢ AC 3 06 ¢ TSTL 28 (AP) : 
0% 00 1c Be CF OoOgR Peet, ATHAR SET, #0, #6 9570 
0012 0012 0012 00's a00c 12$: ~WORD 135-1 $,- : 

001 0007 13$-12$,- : 
13$-12$,- : 
13$-12$.- : 
13$-12$ : 

50 00000000G 8F D0 000D9 MOVL #SMGS_INVARG, RO ; 0578 

04 QO0EO RET : 

50 01 A6 41 OOOE1 13$: MOVA 1(R6), RO 3; 0589 
56 50 O¢ C7 OOOES DIVL #2 P opt $ 

01 4C B847 91 000E9 CMPB =s-«a@ 76 (DCB) CROW], #1 > 0601 
39 13 OOOEE BEQL 15$ : 

50 FF A7 9E OOOFO MOVAB <1(R7), RO 3; 0606 

51 06 AB 3C 000F4 MOVZWL 6(DCB), R1 : 

50 51 C4& OOOF8 MULL2 R1, RO 3 | 
58 50 DO OO00FB MOVL RO, START_INDEX : 

50 10 A8& DO OOOFE MOVL 16(DCB), Text a ; 0607 
59 14 AB 7D 00102 MOVa 20(DCB), ATTR : 
06 Ag 20 6E 00 2C 00106 MOVCS #0, (SPS, #327 aetoce). (START_INDEX)= : 
6840 0010¢ CTEXT_BuF ; 
06 AB 2—E «AB 6E 00 2C 0010E MOVCS #0, (SP), 46(DCB), 6(DCB), (START_INDEX)-_ ; 
6B49 00115 CATTR BUFI : 
5A 05 00117 TSTL CHAR_BU : 
09 13 00119 EQL 14$ ; 
06 AB 300A 6E 00 2C 0011B MOVCS #0, (SP), 48(DCB), 6(DCB), (START_INDEX)=_ ; 
6B4A 00122 CCHAR_BUF I ; 

4C B847 01 90 00124 148 MOVB #1, &76(DCB) CROW) ; 0608. 

4C BB 01 90 00129 15$ MOVB #1, a76(DCB) ; 0611 

59 01 BE 0012D MNEGB #1, ALLONES 3 0623 
54 D4 00130 CLRL PRINT _LEN : 
55 6— DO 001 ¢ MOVL STR_LEN, BYTES Pema wins : 
58 Oc AE DO 0013 MOVL STR “ADDR, IN_POIN 3 
6E D4 00139 CLRL STR 3 
55 D3 00138 16$: TSTL YTES_REMAINING : 
59 13 0015D BEQL 3 
59 000000006 00 6B 55 2A 0013F SCANC BYTES REMAINING, (IN_POINTER), CHAR_TABLE, -; 
52 55 50 C3 00148 SUBL3 NEU “BYTES REMAINING, BYTES_REMAINING, R2 : 
58 28 CO 0014C ADDL RO POINTER : 
54 52 CO OO14F ADDL Re. PRIN T_LEN : 
oF 3 co ET ADDL R2, STR_LEN 3 
5 5 9 0% MOVL NEW BYTES REMAINING, BYTES_REMAINING 3 
i 1 bai 28 BEQL 2087 3 
50 61 9A OO015A MOVZBL (ADDR_DIFF) : 
09 01 0000000060040 8F 0015p CASEB CHAR TABLE CKO, #1, #9 : 
orc 006 00¢C O08 0166 17$: . WORD $-T7$ : 
032 0032 0032 0032 016E 198-198 - 3 
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_SMGSCODE + 0000 


506 bytes, Routine Base: 


; Routine Size: 


' 


SPGROISPLAY DHD Displa 


SMGSPU 

; 409 667 
; 410 66 
s 611 6 

3 tig 670 
; «641 671 
> 6616 067 

; 64415 067 

; 416 0674 
: 617 0675 
; 618 067 

; 419 067 

; 420 678 
; 421 679 
; 4 ¢ 0680 
; 4 p63) 
: 426 06 ¢ 
; 425 068 

:; 426 0684 
; 427 0685 
; 428 0686 
; $$ 0687 
: 430 0688 
: 431 0689 
3 432 0690 
>; 433 0691 
; 434 069 

> 435 069 

; 436 0694 
3; 437 0695 
; 438 0696 
; 439 0697 
; 440 0698 
; 441 0699 
3: 44 0700 
; 44 0701 
: 6646 bros 
: 665 070 

; 446 0704 
3; 467 0705 
> 448 0706 
3 449 0707 
3: 4650 0708 
: 451 0709 
; 45 0710 
3; 465 0711 
3 454 Brie 
3; 455 071 

; 456 0714 
3; 457 0715 
; 458 0716 
; 459 0717 
: 660 0718 
: 661 0719 
; 462 0720 
; 4635 0721 
; 464 07 ¢ 
; 465 07 


— 


ee ed a ed od = = = = = = 3 3 dd 


; 
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double bigh/ double wide chars 18-50 p-1984 2 9: 66:26 AX=-11 Bliss-32 V4.0 1 
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ZSBITL ‘"SMGSPUT_CHARS _HIGHWIDE = Write jae Sipe double wide characters’ 
GLOBAL ROUTINE SMGSPUT_CHARS_HIGHWIDE ( 015PL 


TEXT ale “BLOCK C,BYTEJ, 
LIN N 

N_SET 
N~ COMPLEMENT, 
)e= i 


‘ee 

! FUNCTIONAL DESCRIPTION: 

This routine writes ore high/double wide characters to a 
virtual display. Line can not contain a mixture of atagie 
high/wide and cle’ nigh/wide characters; if the Line previously 
contained single high/wide, then the entire Line will be re- 
written, otherwise only the specified text is written. 


The internal cursor poestten is left at the character 
position following the text written. 


CALLING SEQUENCE: 
ret_status.wic.v = SMGSPUT_CHARS_HIGHWIDE spt ID.el.r, 


> CHAR _ SET.Fl.r 
FORMAL PARAMETERS: 
DISPLAY_ID.rl.r 
TEXT. rt.dx 
LINE_NO.rl.r 


Display id of virtual display 
Address of descriptor of output string 


Optional. Address of Line number at which 

to start output. This Line will contain the 

voper half of the double high text. If omitted 
» the current Line number is used. 

COL_NO.rl.r Optional. Address of column number at which 

to start output. If omitted (=0), the 

current column number is used. 


Optional. Each 1 bit in this parameter 

causes the corresponding attrihute to be 
set in the displa - 6 below for List 
of settable attributes 


RENDITION_COMPLEMENT.rl.r Optional. Each 1 bit attribute in this 
parameter causes the corresponding oy jr neute 
to be complemented in the displa 
below for List of complementable sttrioutet. ) 


RENDITION_SET.rl.r 
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-004 SMGSPUT _CHARS_HIGHWIDE = Write double high doub 14-Sep-1984 SMGRTL” SRC SMGD1SbHW. 4 2:1 (4) 


LIBS_INVSTRDES Invalid string descriptor 
SMG$_"WRONUMARG Wrong number of arguments 


SIDE EFFECTS: 
NONE 


5s & 724 1! 
is 46 725 1! . the same bit is specified in both the ag SET parameter 
|; 668 7 $ 1! d in the RENDITION COMPLEMENT tyretee E the app Tication is 
3 «469 7 ,! RENDITIONS SET followéd by RENDITION complement. Using these two 

; 470 7 8 2 parameters together the caller can exercise Ri that and 

: 471 7 1! independent control over each attribute on p single call. On an 

; 67 + ae attribute 7 es attribute basis he can cause the following 

; 47 Bf . 24 transformation 
3 474 7 ¢ 1! 

; 4675 07 1! SET COMPLEMENT Action 

> 476 0734 1: oon nntiimeas 

; 477 Bf 5 3: 0 5 Attribute unchanged. | 

; 678 7 $ 1! 1 Attribute set to ‘‘on 

; 479 07 1! 0 1 Attribute set to conplonent of 

> 480 0738 1! current setting. 

> 481 0739 1! 1 1 Attribute set to ‘‘off'’. 

; 48 0740 1! 

; 48 0741 1! 

: tke toe) : Attributes which can be manipulated in this manner are: 

; 486 0744 1! SMG$M_BL INK Teptays. characters blinking. 

; 487 0745 1! SMG$M_BOLD disp ays characters in higher-than-normal 

>; 488 0746 1! ensity. 

; 489 0747 1! SMG$M_REVERSE "Sets s characters in reverse video <= that is, 

; 490 0746 1! wine the —— default rendition of the 

; 491 0749 1! rtual dis ay 

; 49 0750 1! SMGSM _UNDERLINE. iealave characters underlined. 

; 49 0751 1! 

3; 4946 $726 . 

: 495 07535 1! CHAR_SET.ri.r Optional. Character set to use. Choices are: 

; 496 0754 1! SMG$C_UNITED_KINGDOM 

; 497 0755 1! SMGSC_ASCII (default) 

; 498 8728 1! SMG$C_SPEC_GRAPHICS 

; 499 ssa oo SMG$C_ALT_CHAR 

; 500 0758 1! SMGSC~ ALT “GRAPHICS 

; 501 0759 1! 

; 502 0760 1 ! IMPLICIT INPUTS: 

3 305 0761 1! 

: 504 p76 1! NONE 

: 505 0765 1! 

; 506 0764 1 ! IMPLICIT OUTPUTS: 

s Sor 0765 1! 

; 508 B768 1! NONE 

: 509 0767 1! 

; 510 0768 1 ! COMPLETION STATUS: 

, STi 0769 1! 

: 216 0770 1! SS$_NORMAL Normal successful completion 

3s 51 0771 1°! SMG$_INVCOL Invalid column number 

3; «4514 0 ¢ . 3 SMG$_INVROW Invalid row number 

s S15 0 1 } 

; 516 0774 1! 

s St? 0775 1! 

; 4518 0776 1! 

s S19 8 oe & 

; 520 8 1! 

s Sei 0779 1! 

s Sée 0780 1! 


a 
as! 


nt nls elt aly ls el ly els ell lls 
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1-004 SMGSPU _ CHARS _HIGAWIDE = Write double high doub 14-Sep-1984 SMGRTL.SRC SMGDISDHW. if 2;1 (4 
7 


| SMC 
( 
: 3 i ye > BEGIN 4 
3 5 Br g BUILTIN 3 1 
s > 8 of ¢ NULLPARAMETER; : : 
3 : 8 07 § LOCAL $1 
; 3 9 07 DCB : REF BLOCK [,BYTE), i] 
; 0 0788 ROW, ! working row ; 1 
; 531 0789 CO \ work ing column : 1 
; 5 é 0790 REND_CODE, ' rendition code to use : 1 
3 32 0791 STR_CEN : INITIAL (0), ! Length of text string 3 1 
g 230 0738 STR-ADDR, ' address of text string. s 1 
3s 555 079 LOWER _HALF , ' flag ' to pguteut lower half $1 
; 536 0794 : high ; 1 
3; Sor 0795 STATUS; 3 1 
; 5333 0796 $1 
; 539 0797 2 LITERAL $1 
: 540 0798 § K_LINE_ARG = 3, 3 1 
; 541 0799 KCOL_ARG = 4, 31 
3 206 0800 2 K_SET_ARG = 5 3 1 
: 54 0801 2 K-COMP_ARG = 6, = 
3: 544 pee 2 K-CHAR_ARG = 7; 3 1 
3 345 0803 2 g 1 
; 546 0804 2 SSMGSGET_DCB (.DISPLAY_ID, DCB); ! get addr of ptrtunt display : 1 
: 547 0805 2 ' control block 3 1 
; 4548 0806 2 31 
3; 549 0807 2 SSMGSVALIDATE_ARGCOUNT (2, 7); 3 1 
; 550 0808 2 3 1 
3 Dor 0809 2 !+ 3 1 
; 226 0810 2 ! Get the Length and address of the text string. 3 1 
3 39 0811 2 !- 3 1 
: 554 pals ¢ 37 
; 555 081 IF NOT (STATUS = LIBSANALYZE_SDESC_R2 (.TEXT; 3 1 
: 556 0814 3 STR_LEN, 31 
» Sor 0815 3 STR “ADDR)) 3 1 
; 558 0816 2 EN 31 
; 559 0817 2 RETURN (.STATUS); 3 1 
; 560 0818 2 $1 
; 561 0819 2 !+4 s 1 
3 362 0820 2! Check for optional arguments. Set local variables to caller's 3s 1 
; 563 0821 2 ! values, when available, and defaults when argume.its omitted. 31 
; 564 bess 2 !- 3 1 
; 565 0823 2 $1 
: 206 bese § IF NOT NULLPARAMETER (K_LINE_ARG) AND g 1 
; 56 0825 NOT NULLPARAMETER K-COL LAR RG) z 1 
: 568 b3s$ $1 
3; 569 08 BEGIN gs] 
: 259 0899 ROU s «ob INE NO: | 
: 256 0830 SOuGSVAL [DATE "ROW. COL (. ROW, -COL); 2) 
2 ST 0831 ! verify row & col within display | 
3 «6576 tt END 3 
3 57S 083 $1 
: 576 0834 BEGIN a} 
3; S77 0835 ROW = .DCB att W_CURSOR Site : | 
; 578 Baas COL = DCB DCB- W- CURSOR— COL s 
; 579 0837 2 END; 1 

| 

| 

L 
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Eo > tate td ptosis double high/double wide chars — 18-Sep-1984 90: $628 AX-11 Bliss-32 pe 
\- SMGSPUT_CHARS_HIGHWIDE = Write double high doub 14-Sep-1984 15:09:40 SMGRTLSRCISMGD I SOHW.B 2;1 


i 


80 
$81 SSMGSSET_REND_CODE (K_SET_ARG, K_COMP_ARG); 
286 ! macro tO use caller's args if present 
e8e IF NOT NULLPARAMETER (K_CHAR_ARG) 
85 THEN 
586 BEGIN 
387 CASE «CHAP _SET FROM SMGSC_UNITED_KINGDOM TO SMGSC_ALT_GRAPHICS OF 
589 
590 CSMGSC_UNITED KINGDOM, SMGSC_ASCII, SMGSC_SPEC_GRAPHICS, 
231 SMGSC"ALT_CHER, SMGSC_ALT_GRAPHICS): 
98 
594 CINRANGE, OUTRANGE): 
595 RETURN (SMG$_INVARG); 
596 
597 TES; 
5 END; 


awn 
oovuono 
oOo 
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1+ 

! Double wide characters occupy two positions instead of one on the 
' screen. However, or mapping purposes we store the text only half 
way over in the t--«t buffer. 


COL = (.COL + 1)/2; ! col in half for dbl wide 


+ 


Set the double wide/double high characteristic in the DCB. 


6 

2 
60 2 

2 
61 
612 BECIN 
613 BIND 
614 3 DCB_LCV = .DCB CDCB_A_LINE_CHAR]; 
eis : DCB_LCV : VECTOR C,BYTE); 

° LCV L.ROWJ NEQ LINE_K_U HIGH : previous single wide 
618 : IF .OCB_LCV C.ROW) NEQ LINE PPER_HIG : yi ly singl id 
$13 i tog ! or just wide 
621 & LOCAL 
os¢ 4 START_INDEX; 
6¢ 1 4 START INDEX = SSMGSLINEAR (.ROW, 1); 
624 ¢ 4 SSMGSBLANK _FILL_DCB (.DCB COCB W NO_COLSI, «START INDEX); : 
LCV L.ROWJ = LINE_K_U HIGH; : set this row to ig 
625 4 DCB_LCV C.RO INE_K_UPPER_AIG h to dbl high 
oc6 : ND; ig rast pais implies 
wide also 

56 6 IF .ROW + 1 LEQ .DCB CDCB_W_NO_ROWS) 
69 THEN 
ost 3 7 << aa ! we can fit other half 
632 0 4 IF .DCB_LCV C.ROW] NEQ LINE_K_LOWER_HIGH ! previously single wide 
$37 1 4 ‘on ! or just wide 
635 8 ‘ 3 LOCAL 
636 894 5 START_INDEX; 


—_——_----——--— 


SMGSDISPLAY_DHD Displ 
1-004 


| 

SMG 
; 637 895 
s § 3 9 
; 6 9 
: 640 98 
; 641 899 
; «4646 900 
; 64 0901 
> 644 090 
3; 645 090 
; 646 0904 
; 647 0905 
; 648 Bane 
; 649 907 
; 650 0908 
: 651 0909 
3 026 0910 
: 63 0911 
3 6654 Ba1¢ 
; 655 091 
; 656 0914 
s 657 0915 
; 658 0916 
; 659 0917 
; 660 0918 
; 661 0919 
3 666 pace 
; 66 0921 
> 664 base 
; 665 343 
; 666 0924 
: 667 0925 
3; 668 0926 
; 669 0927 
; 670 0928 
; 671 0929 
s 67 0930 
s 67 0931 
3 674 oh) 
; 675 093 
3; 676 0934 
; 677 0935 
; 678 0936 
: 679 0937 
; 680 0938 
; 681 0939 
: 682 0940 
: 683 0941 
3; 684 094 
; 685 94 
; 686 944 
; 687 0945 
; «4688 94 
; 689 94 
; 690 0948 
; 691 0949 
; 69 0950 
; «+69 0951 
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double high/double wide chars 
PUT _CHARS_HIGHWIDE = Write double high doub 


‘4 


6 
ibes Sep-1984 AX-11 Bliss-32 V Page 16 
1e-8ep “1382 P9:68:25 Haat Oba eRe Stn eSo. 1 9 ta) 
START INDEX. = SSMGSLINEAR (ROW 
K_LO 


o Ws 
SeRCSEL AK FILL_DCB (.0CB COCB_W_NO mea «START_INDEX); 
PNBT LCv C.Row +°1J = LINE_K QER_HIGH 
END; ' we can fit other half 
C<B_LCV [OJ = 1; ' mark that there are wide or 


! dbl high/wide chars in displa 
ENL; . itt 


i ALL Local vor getes are set up. Call routine to put text into 
a the display buffer. 


BEGIN 
LOCAL 
PRINT_LEN; 
SSMG$FIND-PRINT_LENGTH (STR -LEN. , STR ADDR, PRINT_LEN); 
1. ! don't count non-printable chars 
i SMGSSPUT ~TEXT_TO_BUFFER doesn’ t realize that wide characters 
occupy 2 spacés So it won't recognize overflow. Make sure 
i we don't try to put more chars in buffer than will fit on 
a this Line. 


if .PRINT _LEN GTR ((.DCB CDOCB_W_NO_COLS] = 1)/2) 
PRINT_LEN = (.DCB CDCB_W_NO_COLS] = 1)/2; 


DCB COCB_W_CURSOR_ROW] = eon: 
DCB COCB"WOCURSOR-COLJ = .COL 


BOF ~ for put_text 
IF NOT (STATUS = SMGS$S$PUT _rext® ai oFre (.0CB, 
REND CODE, 
.PRINT_LEN 
.STR_ADDR, 
IF NOT NULLPARAMETER (K_CHAR_ARG) 
THEN ..CHAR 
en ELSE SMG$C ASCII) 
RETURN (.STATUS); 
IF .LOWER_HALF 
THEN f : 
BEGIN ! write lower half of dbl high 


DCB atte W_CURSOR_ROW] = .ROW + 1; 
DCB COCB-W-CURSOR-COL) = .COL; : 
5 Pe] *ien for put_text 


IF NOT (STATUS = SMGSSPUT_TEXT_ 1% _BUFF Bee. 


P 
STR_ADDR, 
F NOT NUCLPARAMETER (K_CHAR_ARG) 
HEN ..CHA 

LSE SMGS$C_ASCI1)) 


poo ete een 
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FTG0 SMGBPUT_CHARS-HIGRWIDE = Write double high doub 1e=88p-1984 3:55:26 Emaar SR Ssmaplsomw. 231 
5 6% 953 4 THEN 
; 695 9 4 RETURN (.STATUS); 
3 098 954 4 
; 69 955 4 !4 
; 698 B23 4 ! Correct the cursor position. We stored our text half way over in the 
3 $2 957 4 ! buffer, but the screen cursor position should be calculated based on 
; 700 958 4 ! the actual starting column specified by the caller. Also take into 
; 701 0959 4 ! account that characters occupy 2 positions. 
Pio Bd 
; ee B20 ? DCB COCB_W_CURSOR_COL] = (2 * .COL) + (2 * .PRINT_LEN) = 1; 
te 964 4 IF_ .LOWER_HALF ! we used 2 rows if we could 
3; 70 0965 4 THEN ! write the lower half of dbl high 
; 708 0966 4 DCB CDOCB_W_CURSOR_ROW] = .ROW + 1 
; 709 0967 4 LSE 
; 710 0968 4 DCB COCB_W_CURSOR_ROW] = .ROW; 
s i} 0969 3 END; 
: re 0970 3 
oe 4 0971 END; 
; 716 097 
3 «715 097 4 
; 716 0974 2 ! See if this change should be reflected on the screen. 
Pir 0975 2 !- 
; 7 0976 
: 719 0977 RETURN (SMGS$$CHECK_FOR_OUTPUT_DCB (.DCB 
; 720 0978 SMG$C_PUT_CHARS, 
; 721 0979 2 0)); 
; Se 0980 2 ; 
S 32 0981 1 END; ! End of -outine SMGSPUT_CHARS_HIGHWIDE 
OFFC 00000 «ENTRY SMGSPUT_CHARS _HIGHWIDE, Save R2,R3,R4,R5.- ; 0668 
R6,R7,R8,R9,RTO,R11 3 
SE 14 C2 00002 suBL2 #20, SP ; 
7E D4 00005 CLAL STR_LEN ; 0782 
50 04 BC 00 00007 MOVL QaDISPLAY_ID, RO ; 0804 
04 BC 38 AO 01 00008 CMPL 56(RO), SDISPLAY_ID ; 
06 12 00010 BNEQ 1$ : 
11 4G AO 91 00012 CMPB 68(RO), #17 ; 
ge 13 B8018 BEQL 3 
50 00000000G 8F 44 ete 1$: nove #SMGS$_INVDIS_ID, RO : 
58 06 BC 0 0020 2$: MOVL @DISPLAY_ID, DCB ; 
50 6C 02 83 00024 SUBB3 «#2, (AP) DIFF : 0807 
05 50 91 00028 CMPB FF, #5 ; 
gs 8 0028 BLEQU : 
50 00000000G 8F BY 32 neve #S@G$_WRONUMARG, RO : 
50 08 ac 00 44 5 38: MOVL TEXT, RO ; 0813 
000000006 8 16 9 J$8 LIBSANALYZE_SDESC_R2 ; 
08 AE dO 4 F MOVL RO, STATUS ‘ 
6E 1 pO 00043 MOVL R1, (SP) ; 
14 AE 2 00 00046 MOVL R2, 20(SP) : 
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04 
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57 02 As 10 
56 06 ABs 10 
50 
57 
56 
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04 
0012 0012 00 


56 
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oaow wmoo 


08 
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‘suas, 4$ 
(AP), #3 


@LINE_NO, ROW 
acoL_NO, COL 

ROW 

5$ 

#0, #16, 2(DCB), ROW 
#SMG$_INVROW, RO 

COL 

7$ 

#0, #16, 6(DCB), COL 
#SMG$_INVCOL, RO 
49¢D¢B), ROW 


42(0CB), COL 
dcB) REND_CODE 


RO 


Doi—-qQQ 2— 2 SB) 9 SS — @) SS FO Ss BD mS OD 


Pete Se Se Se Se Se Se Se Se Se Ge Se Se Se Se Be Be Se Be Oe Se Be Se Be Be Be Be Se Se Se Se Be Be Be Be Be Be 


; 0842 


0845 


0853 
0864 
0876 


0881 
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ITB0e mebpy _CHARS_HIGHWIDE = Write double high doub 14-Sep ae 3B 9: 86:2 40 SMGRTL. SRC Shep sou. 8 2:1 39° ta) 
| 0 10 A 0 001 MOVL (DCB), T -BuF : 
28 14 =OA » 0104 MOVO 28(0¢8). ATTR-BUF : — 
06 As 20 6E ae, 2c 0108 MOVCS #0, (SPS wie 6(DCB), (START_INDEX)= : 
06 AB 2 «AB bE my 2c 0119 MOVCS fatr (SB) 46(0CB), 6(DCB), (START_INDEX)- 
SA d5 $0119 TSTL CHAR_BUF : 
09 1 00118 BEQL 14 ree : 
06 AB 30 AB 6 epee 2c 00110 MOVCS #0. gf oe) g 148 (08) 6(DCB), (START_INDEX)=- ; 
04 BE 02 90 00126 14$:  MOVB #2 ($P) + 0883 
5B 01 A? YE 00124 15$: MOVAB 1(R7), R11 : 0886 
5B 02 a8 10 00 ED 0012 CMPZV * ne 2(DCB), R11 : 
47 19 00134 BLSS 17$ : 
10 AE 01 DO 00136 MOVL “i, LOWER HALF : 0889 
0 04 BE 91 0013A CMPB = «4 (SP), #3 : 0890 
D 13 0013€ BEQL 17$ : 
50 FF A? 9E 00140 MOVAB J 5 RO : 0895 
51 06 AB 3C 00144 MOVZ2WL 6(DCB), R1 : 
50 51 04 00148 MULL R1, RO : 
06 AE 50 DO 00148 MOVL RO. START_INDEX : 
50 10 AB DO 0014F MOVL 16(DCB), TEXT BUF : 0896 
59 14 Ag 7D 00153 MOV 20(D cB) : 
06 As 20 6E 00 2c 0015 MOVCS #0, (SP), ote aetDce). @START_INDEX= 3 
04 BESO 0015p Crext But F 
06 AB 2— AB 6E 00 2C¢ 00160 MOVCS #0, (SP), 46(DCB), 6(DCB), @START_INDEX- : 
04 BE49 00167 CATTR BUFI : 
5A DS 0016A TSTL CHAR_BUF : 
OA 13 0016C BEQL 16$ : 
06 AB 30 As 6E 00 2C 0016E MOVCS #0, (SP), 48(DCB), 6(DCB), @START_INDEX- : 
04 BESA 00175 CCHA : 
4C B84B 03 90 00178 168 MOVB a3, 976(D¢B) (R11) : 0897 
4C 688 01 90 0017D 17$ MOVBsé#'l, > 0901 
5A 01 BE 00181 MNEGB so#1, RLLONES. : 0913 
55 D4 00184 CLRL PRINT_LEN : 
54 6E DO 00186 MOVL STR “LEN, ‘ortes REMAINING : 
59 14 AE 00 00189 MOVL STR_ADD POINTE 3 
6—E 04 00180 CLRL STRTL : 
54 D5 OO18F 718% TSTL BYTES_REMAINING 3 
59 13 00191 BEQL 22$ : 
5a 000000006 00 69 54 2A 00193 SCANC BYTES REMAINING, (IN_POINTER), CHAR_TASLE, -: 
52 54 50 ¢3 0019¢ SUBL3. NEW_BYTES_REMAINING, BYTES_REMAINING, R2 : 
59 52 ¢O Bota ADDL R2, IN_POINTER : 
55 52 CO OO1A ADDL Re, PRINT LEN ; 
6E 52 CO 001A6 ADDL Ro, STR_LEN : 
54 50 bg 001A9 MOVL NEW _BYTES _REMAINING, BYTES_REMAINING : 
3—E 13 OO1AC BEQL 228 ; 
50 61 9A OO1AE MOVZBL (ADDR_DIFF), RO ; 
09 01 0000000060040 8F 00181 CASEB. CHAR TABLECROJ, #1, #9 : 
001¢ 002 dec 008C 001BA : 
0032 0032 0032 00 3 001C2 1$-19$,- : 
002¢ 003 OO1CA 19$,- ; 


19$: «WORD ae 
é 
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3$-198.~ 
$-19$,- 
1$-19$ 
50 000000006 8F b0 O1ce MOVL #SMGS_FATERRLIB, RO 
50 2A ag 3¢ 0106 20$ MOVZWL 42(DCB), RO 
50 07 OO1DA DECL R 
50 08 66 90 10¢ DIVL2 #8, R 
5 09 A540 7E 0010F MOVAG 9(PRINT_LEN)CROJ, PRINT_LEN 
of D6 OO1E4 INCL STR_LE 
bg O1E 21$ INCL IN_POINTER 
54 07 OO1E DECL BYTES_REMAINING 
A311 OO1EA BRB 18$ 
50 06 AB 3C OO1EC 228 MOVZWL 6(DCB), RO 
50 07 001F0 DECL RO 
50 0¢ C6 Ore DIVL2 #2, RO 
50 55 D1 OO1F CMPL  PRINT_LEN, RO 
03 15 001F8 BLE 23$ 
55 50 DO OO1FA MOVL RO, PRINT_LEN 
28 = AB 57 BO OO1FD 23$ MOVW ROW, 40(DTB) 
2A AB 56 BO 90201 MOVW COL, 42(DCB) 
07 6C 91 00205 CMPB (APS, #7 
OA 1F 00208 BLSSU 248 
1¢ «=AC OS 90Z0A TSTL g8 (AP) 
05 13 00200 BEQL 4$ 
1¢ BC DD 0020F PUSHL @CHAR_SET 
02 11 00212 BRB 25$ 
01 DD 00214 248 PUSHL #1 
18 AE DD 00216 25$ PUSHL STR_ADDR 
55 0D 00219 PUSHL PRINT LEN 
18 AE DD 0021B PUSHL REND_CODE 
58 DD OO2lE PUSHL DC 
000000006 00 05 FB 00220 CALLS #5, SMGSSPUT_TEXT_TO_BUFFER 
08 AE 56 00 00227 MOVL 0, STATUS 
36 08 AE €9 00228 BLBC STATUS, 2 
51 10 AE €E9 O022F BLBC LOWER HALF, 31$ 
28 «AB 58 BO 00233 MOVW 11, %0(D¢B) 
2A OAB 56 BO 00237 MOVW COL, 42(DCB) 
07 6C 91 00238 CMPB 5, a7 
OA 1F 0023€ BLSSU 26 
1¢ AC DS 00240 TSTL 28 (AP) 
05 13 00243 BEQL 6$ 
1¢ BC DD 00245 PUSHL a@CHAR_SET 
02 11 00948 BRB 27$ 
1 DD 0024A 268 PUSHL #1 
18 AE DD O0g4¢ 27$ PUSHL STR_ADDR 
55 DD 0024F PUSHL  PRIAT LEN 
18 AE DD 00251 PUSHL REND_CODE 
58 DD 00254 PUSHL DC 
000000006 00 05 FB 00256 CALLS #5, SMGSSPUT _TEXT_TO_BUFFER 
08 AE 50 00 00250 MOVL RO. STATUS 
0 08 AE €E8 00261 BLBS STATUS, 29$ 
50 08 AE DO 00265 28$: MOVL STATUS, RO 
4 00269 RET 
55 02 C4 0026A 29$: MULL2 #2, R5 
0 FF A546 3E 0026D MOVAW  =1(R5)CCOLJ, RO 
2A AB 50 BO 00272 MOVW RO, 42(DCB) 
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0 10 AE 76 BLBC LOWER_HALF, 30$ 3; 0964 
28 R8 B 60 037k MOV Boye 50(dcB) + 0966 

4 7 BRB 31$° : 
28 «=A 7 60 a8: MOVW ROW, 40(DCB) 3 0968 
7E 11 0 1$: MOVaQ #17, =(SP) 3; 0977 

38 DD 00287 PUSHL ¢ 3 

000000006 00 03 FB 00289 CALLS #3, SMGSSCHECK_FOR_OUTPUT_DCB 3 
04 00290 RET 3; 0981 


; Routine Size: 657 bytes, Routine Base: _SMGSCODE + OFA 
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1-004 SMCSPU LINE “UIDES= Put Wide Text to “Display in 12: Sep-1984 9: 86:26 SMGRTL.SRC sho SOMW. 3 2;1 ° (35 


s 25 09 < 1 ZSBTTL "SMGSPUT_LINE WIDE = Put Wide Text to Display in Line Mode’ 

3; 7 § 9 1 GLOBAL ROUTINE SMGSPOT_LINE_WIDE ( 

ee 984 (1 DISPLAY_ID, 

: 728 985 1 TEXT : REF BLOCK C,BYTE), 

s ey 9 § 1 LINE_ADV, 

; 750 9 1 RENDITION_SET 

:; 731 988 1 RENDITION” COMPLEMENT, 

ao F ¢ 989 1 WRAP_FLAG, 

; £ 0990 1 CHAR_SET 

; 734 0991 1 ds 

; 735 0992 1 

aR $ 0995 1 !++ 

BR 0994 1 ! FUNCTIONAL DESCRIPTION: 

Te a 3 0995 1! 

3 63 0996 1! This routine is used to write Lines with wide characters to the 
; 740 0997 1! virtua Bet Se hme followed by cursor movement sequences. 
3 741 09 1! SMGSPUT_L WIDE writes from the current cursor position to the 
s 7% 0999 1! end of then Line. If the caller's text does not span to the end of 
3 or 4 } the Line, blank fill is added. 

3 765 1908 1: Treatment of text which exceeds the al sentaass bounds of the 

; 746 1005 1! display depends on WRAP_FLAG. If W FLAG is set, Lines are 

3; 747 1006 1! scrolled LINE_ADV times to make conn Mar the overflow characters 
3 oe 1982 : in the ‘next’ Line. If wrap is off, overflow characters are lost. 
; 750 1007 1! Following a call to pe | LINE WIDE, the internal display cursor 
s 751 1008 1! position is set to column 1 of the next Line where output should 
3 P36 1009 1! reer The next Line where output should occur is determined by 
; 7 1010 1! ADV; LINE_ADV defauits to 1 so that subsequent calls to 

; es! + ! SMSPUT _LINE_WIBE will not cause overprinting. 

; 756 1013 1 ! CALLING SEQUENCE: 

, for 1014 1! 

; 758 1015 1! ret_status.wlc.v = SMGSPUT_LINE_WIDE et etd mi Pe 

; 759 1016 1! TEXT. rt. 

: 760 1017 1! C,LINE 7iv. rl.rJ 

: 761 1018 1! poRENDTTI N_SET rl.rJ 

s 1019 1°! *RENDITION™ COMP EMENT. rl.r] 

; 76 1020 1! C,WRAP_FLAG fhe 

: 764 1021 1! C,CHAR_SET.rl.rJ) 

; 765 1356 1! 

: 766 102 1 ! FORMAL PARAMETERS: 

; 767 1024 1! . : 

3 708 \3 2 ' DISPLAY_ID.rl.r Display id of virtual display 

; oy Hc 44 : } TEXT. rt.dx Address of descriptor of output string. 

3 ore 9 : 7 LINE_ADV.rl.r Optional. Address of signed number of Lines 

: 46, ioet : to advance after output. 

s TS 1036 1! RENDITION_SET.rl.r Each 1 bit attribute in this parameter 

: 776 1033 1! causes the corresponding attribute to 

; 777 1034 1! be set in the display. (See below for 

: 778 139? 1! List of settable attributes.) 

; 779 1036 1! 

; 780 ee 1! RENDITION_COMPLEMENT.rl.r ; ; ‘ : 

; 781 1038 1! Each 1 bit attribute in this parameter 
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“ . ¢ 1039 1! causes the corresponding attribute to 
; £ 1040 1! be complemented in the not (See 
; @ 1061 1! below for List of complementable 
; f 5 ek : attributes.) 
3 88 Ree 1} If the same bit is specified in both the RENDITION SET parameter 
; «4788 10465 1! and in the RENDITION COMPLEMENT hod § the application is 
; 789 ee 1! RENDITION_SET followed by RENDITION complement. Using these two 
; 790 1067 1! parameters together the caller can exercise arbitrary and 
; i 1048 1! independent control over each attribute on a gy A Gr call. On an 
; 1049 1! attribute by attribute basis he can cause the following 
; 79 1050 1! transformations: 
; 794 1051 1! 
; 1326 , SET COMPLEMENT Action 
; 796 1055 1: oa9 << quateninnnii . 
; 797 1054 1! 0 0 Attribute unchanged. 
; 798 1055 1! 1 0 Attribute set to ‘‘on’’ 
; 799 1056 1! 0 1 Attribute set to complement of 
; 800 1057 1! current apihy > ees 
; 801 1058 1! 1 1 Attribute set to ‘‘off'’. 
; 80 1059 1! 
; 80 1060 1! - ; ; : 
3 Boe H's : } Attributes which can be manipulated in this manner are: 
: 806 1083 , } SMG$M_BL INK qi splays characters blinking. 
; 807 1064 1! SMG$SM_BOLD displays characters in higher-than-normal 
; 808 1065 1! intensity. : 
; 809 1066 1! SMGS$M_REVERSE eisplays characters in reverse video -- that is, 
; 810 1067 1! using t S copes tte default rendition of the 
: 811 1068 1! virtual display. ; 
3 aig Hs 34 : SMGSM_UNDERLINE displays characters underlined. 
: 814 1071 1! WRAP_FLAG.rl.r = 0 means no wrap 
; 815 1976 |} = 7 means wrap 
; 816 1075 1! If omitted, no wrap is the default. 
: 817 1074 1! ; 
: 818 1075 1! CHAR_SET.rl.r ppt ronan. Character set to use. 
; 819 1076 1! Choices are: 
; 820 1077 1! SMG$C_UNITED_KINGDOM 
: 821 1078 1! SMG$C_ASCII Tdefault) 
; as¢ 1079 1! SMGS$C_SPEC_GRAPHICS 
; 82 1080 1! SMG$C_ALT_CHAR 
: 824 1081 1! SMG$C_ALT_GRAPHICS 
; 3S? 1OR6 1: 
: 6 1085 1 ! IMPLICIT INPUTS: 
; 827 1084 1! 
; 828 1085 1! NONE 
; a6? 1086 1! 
; 830 1087 1 ! IMPLICIT OUTPUTS: 
; «831 1088 1! 
; He 1089 1! NONE 
; 83 1090 1! 
; 834 1091 1 ! COMPLETION STATUS: 
; 835 1936 a 
; 836 1093 1! SS$_NORMAL Normal successful completion 
s Sor 1094 1! SMG$_WRONUMARG Prong numer (of combination of) arguments 
; 838 1095 1! LIBS_INVSTRDES Invalid string descriptor 
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3 39 1838 1! 
3 re 133 : : SIDE EFFECTS: 
; 4g 1998 1} NONE 
oe | he 
ee | Bhd 
> B47 1104 BUILTIN 
; 848 1105 NULLPARAMETER; 
oe ern 
: 851 1108 HALE . NO_COLS, 
: Ha 1110 DCB : REF BLOCK C,BYTE), ! Address of virtual display 
; 854 1111 ' control block 
; 855 WiN¢ STR “ : INITIAL (0), i Length of text string 
; 856 111 ST? ! Address of text oere*s 
; 857 1114 REN BC ODE, i Rendition code to 
; 858 1115 WRAPPED. CHARS :INITIAL (0), ' Number of chars that "den? t fit on 
; 859 1116 2 ' the current Line 
; 860 1117 2 SCROLL_FLAG : INITIAL (0), ' Ae to scroll up, down, or neither 
: ae 1343 § STATUS; ! Status of subroutine calls 
; He 1120 é LITERAL 
; 864 1121 K_ADV_ARG = 3, 
; 865 1156 2 K_SET-ARG = 4 
> 866 1123 2 K-COMP_ARG = 5, 
; 867 1124 2 _WRAP_ARG = 6, 
Bais ene 
: 870 M1127 2 MACRO "SScRoLt UP (COUNT) = 
; «871 M1128 2 SMGS$$SCROLL_AREA (.DCB, 
3; 872 4 11$> 2 -DCB COCB_W_TOP_OF _SCRREG), 
; 873 ™ 1130 2 .0CB COCB-W-COL- START, 
; 874 ™ 1131 2 (.0CB COCcB_ Q _BOTTOM_ OF pSCRREGI - 
; 875 4 1138 2 .0CB COCB- Ww" iy pr “SCRREG] + 
; 876 M113 2 .0CB CDCB No ° 
: 877 1134 2 SMGSM_UP, ~COUNT) i 
: 809 1136 3 
: 880 1137 2 SSMGSGET_DCB (.DISPLAY_ID, DCB); ' Get address of virtual display 
3 rt aE ; ' control block. 
: ass 1140 SSMGSVALIDATE_ARGCOUNT (2,7); 
> 885 1148 3 IF NOT NULLPARAMETER (K_ADV_ARG) AND 
: My sse7 poh E_ADV LSS 0 
> 888 1145 NRE TURN (SMG$_INVARG) ; ' positive advancing only 
Be tt 
: 891 1148 i "‘Gekeut rendition code to use, based on whether one was provided by 
; 89 1149 i caller, 
. at 
: 895 1152 SSMGSSET_REND_CODE (K_SET_ARG, K_COMP_ARG); 


7) 
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8 

89 1+ 

4 ; Get the Length and address of the text string. 

a4! IF NOT (STATUS = LIBSANALYZE_SDESC_R2 ( serTi 

908 STR-ADDR) ) 

90 THEN 

904 RETURN (.STATUS); 

905 

906 :¢ 

907 : Compute the number of columns in a line. We can fit only half 

4+ ; as many wide characters since they occupy 2 positions. 


HALF _NO_COLS = (.DCB CDCB_W_NO_COLS] = 1)/2; 


\+ 

: If the previous Line written was the last Line_in the display, we 

i did not scroll at the end of the operation. (This would've always 

! Left Che Last Line blank - lige gh ig the Srset ay Sane have one 
Cs) 


3 1153 

3 1154 

3 : 5 

3 113, 

: 1 3g 

; 1160 

$ : os 

; 1 88 

; 1164 

3 1165 

3 9 1166 

3 1167 

s 9ti 1168 

5 aig 1169 

: 91 1170 

3; 9146 1171 

i Ste 98 $ 

; at : ie 2 less useable line.) If we're at the bottom, scroll up one before writing. 
: 3 1179 gi. 

; 921 1178 ¢ SSMGSSET_SCROLLING (SCROLL_FLAG); 

: 923 1180 2 IF .SCROLL_FLAG EQL 1 <i 

: 924 1181 § THEN ' we're at the last Line in the display 
: Ped 1188 BEGIN ' and Gisplay is full 

: 926 1183 3 IF NOT NULLPARAMETER (K_ADV_ARG) AND 

: 927 1184 3 ..LINE_ADV GTR O 

; 928 1185 3 : postttve Line advancing 

; 363 Bb ; gg SCROLL UP (..LINE_ADV 

; 931 1188 3 IF NULLPARAMETER (K ADV ARG) 

; 935 1190 3 SSCROLL_UP (1) ! default advancing 

: 935 1198 2 END; ! we're at the Last Line in the display 
: 339 1194 9 46 

: 938 1195 2! Blank out the Line before writing new text. 

; 939 1 38 !- 

3; 940 119 

t 303 1199 COCAL 

; $3 1200 3 START_INDEX; 

> 945 1208 ; START_INDEX = SSMGSLINEAR (.DCB [DCB_W_CURSOR_ROW], .DCB CDCB_wW_CURSOR_COL}): 
S946 P 120 SSMGSBLANK_FILL_DCB ((.DCB CDCB_W NOTCOLS) - 7DCB CDCB_W_CURSOR7COL) +71), 
; 947 1204 ; -START_INDER); 

3 948 1205 

3; 949 1 88 END; 

ot. 

: 952 1209 i Reset the Line characteristics in case the Line was previously 


; 
| 
| 
| 
| 
| 
| 
| 


ro 
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PUY_LINE. WIDE >= Put Wide Text to Display in 14-Sep-19 4 99:88:20 SMGRTL.SRCISMGDISOHW.B 2;1 — (3 
double high or single. 
BEGIN 
IND 
_ LINE CHAR = .DCB CDCB_A_LINE_CHAR]; 
LINE_CHAR : VECTOR (,BYTE); 
LINE_CHAR £ DCB CDCB_W_CURSOR_ROW]] = LINE_K_WIDE; 
LINE-CHAR (0) = 1; mark~that there are dbl chars 


in displa 
END; eae 

1+ 

Move the text string into our virtual display buffer. 


IF NOT ( STATUS = SMGS$$PUT_TEXT_TO_BUFFER ( .DCB, 
«REND CODE, 
-STR_CEN, 
.STR-ADDR 


HEN 
RETURN (.STATUS); 


+ 


If all went well so far, we need to enter the <CR>,<LF> to form the 
end of Line. 


DCB CDCB_W_CURSOR_COL] = 1; ! Effect of <CR> 
+ 
: Default to advancing one Line if LINE_ADV is omitted. 
IF NULLPARAMETER (K_ADV_ARG) 
THEN 


BEGIN ' Line adv omitted 
A ae COCB_W_CURSOR_ROW] + 1 LEQ .DCB COCB_W_BOTTOM_OF_SCRREG) 


! Just advance cursor row to next Line 
DCB COCB_W_CURSOR_ROW) = .DCB CDCB_Y CURSOR_ROW] + 1 
BEGIN 
SSMGSSET_ SCROLLING (SCROLL_FLAG); 
LF he rnoc lef LAG EQ. 1 
ee COCB_W_CURSOR_ROW) NEQ .DCB CDCB_W_BOTTOM_OF_SCRREG] 
' scroll if within scrollin region 


SSCROLL_UP (1); 
1F DCB CDCB_W_CURSOR_ROW] LEQ .DCB CDCB_W_BOTTOM_OF_SCRRE 
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; 1010 1267 4 pce COCB_W GURSOR. ROW] = .DCB CDOCB_W_BOTTOM_OF _SCRREGI; 

3 1011 1268 4 ocB CoCcB_V_FOLC :7! remember that wevused LastLine 

: 19l¢ 1 4 3 

; 101 1270 

3; 1014 1271 END ! Line adv omitted 

3; 1015 1 te 

3; 1016 127 + 

; 1017 1274 ! Take care of the requested line advancing. 

; 1018 1275 t= 

3; 1019 1276 

: 1020 1277 ELSE 

; 1021 1278 BEGIN ! Line_adv specified 

3: 10 ¢ 1279 IF ..LINE_ADV GTR 0 

; 10 1280 THEN 

3; 1024 1281 4 BEGIN ! ry i it et tah 

3 1025 1s8¢ 4 IF .DCB COCB_W_CURSOR_R V LEQ 

: 1026 1285 4 -DCB CDCB_W_BOTTOM_OF _SCRREG 

: 1027 1284 4 THEN 

3: 1028 1285 4 ' Just advance cursor row num 

: 1029 1286 4 DCB COCB_W_CURSOR_ROW) = BeBe foce _W_CURSOR_ROW] 

; 1030 1287 4 + ..LINE_ADV 

: 1031 1288 4 ELSE 

: 1032 1289 5 BEGIN ! scrolling u 

: 1033 1290 5 SSMGS$SET SCROLLING (SCROLL_ FLhG): 

3: 1034 1291 5 IF .SCROCL_FLAG EQL 1 

3; 1035 1638 5 THEN 

; 1036 1295 5 IF .DCB COCB_W_CURSOR_ROW] NEQ .DCB CDCB_W_BOTTOM_OF_SCRREGJ 
3; 1037 1294 5 THEN 

; 1038 1295 5 SSCROLL_UP (..LINE_ADV); ! scroll if w/in scroll cegten 
: to 1696 é THEA CDCB_W CURSOR ROW)” LEQ “DCB CDCB_W_BOTTOM_OF _SCRREG 
: 1041 1298 5 B CDCB_W ‘Ter ROW] = .DCB CDOCB_W_BOTTOM_OF _SCRREG); 
3 1042 1299 5 pce PoeB. V_FOLC] = 1;7! remember that we-used Last~Line 

3; 1043 1300 5 END ’ “scrolling up 

3 1044 1301 3 END; ' upspace Set ten 

3; 1045 1306 3 

3: 1046 1303 2 END; ! Line_adv specified 

3 1047 1304 2 

3: 1048 1305 2 '¢ 

3 1049 1306 2 i + yraeping was requested and some characters overflowed the Line, 

; 1050 1307 2 i call ourself again with the remainder of the characters. 

3; 1051 1308 § in 

; 1036 1309 

3 102 1310 § IF .WRAPPED_CHARS NEQ 0 A 

3; 1054 1311 ((NOT NUCLPARAMETER Pe “Ay ARG) AND ..LINE_ADV GTR 0) OR 

; 1055 1316 3 ee ee (K_ADV_ ARG) 

3; 1056 131 ; 

3 1057 1314 BEGIN ' overflow chars 

; 1058 1315 4 13 (NOT wee (K_WRAP _ARG) AND 

; 1059 1316 4 .-WRAP_FLAG NEQ 0) 

: 1060 1317 3 THEN 

: 1061 1318 4 BEGIN ! wrap set - recurse w/overflow 

: 1996 1319 4 CAL 

; 106 1320 4 STR DESC : BLOCK (8, BYTE), 

3: 1064 1321 4 C_SET; 

: 1065 13 ¢ 4 

3: 1066 1323 4 STR_DESC CDSC$B_CLASS] = DSCSK_CLASS_S; 
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Mg = osem _DTYPE_T 
H] = LEN. =".HALF_NO_COLS; 
NT ER] = ah ADDR + .HACF_NO_COLS; 


. 
co 
ae 
cra 
-O 
zc 
mo 
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Sees 


oe 2 oe on oe | 


NGT 
I 

= § 1; 
OT NU ER( K_CHAR_ARG ) 
C_SET = ..CHA 
SMGSPUT LINE _W1DE 


——oO wonuoN Va 


_SET 
“COMPLEMENT, 


WANN rrornororonen a= 


DOOWNA NEW 9 OONAUE WR 9 ODNA UE WN (OO ONAUE WR" OOONOUFWAR “OOONOUSE 


DONE = 0; 
RETURN 1; ! to keep Bliss happy 
END i wrap set - recurse w/overflow 


yee ' wrap not set - truncation 


OODOOOWDWDODONNNANNNNG 


MEUM —O OONO VSWR OO CONAOUEWN—OOONOU Sw 


i Wrap was not requested but there were overflow characters. 
a Put out diamond in Last position to show truncation. 


iF .DCB CDCB_V_TRUNC_ICONJ 
THEN 


SOOO COOCOCOOCOOOOCOCOOCOOOCOO 


CSOOCSOCOCOCOCOSC COO OOOODOOOMm 


BEGIN 
IF NOT .DCB COCB_V_FULLI 


B COCB_W CURSOR ROW] = .DCB CDCB_W_CURSOR_ROW] - 1; 
DCB PpeB. w_CORSOR_COL] = .HALF_NO_COLS: 


SMGS$PUT_TEXT_TO_BUFFER (. -bCB, 
D_CODE + ATTR_M_USER_GRAPHIC, 
UPCIT (BYTE (DTAMOND)S, 
shoke ASCII); 
iF NOT . -DCB COCB_V_FULLJ 
DCB CDCB_W_CURSOR ROW] = -DCB CDCB_W_CURSOR_ROW] + 1; 


‘restore for next call” 
i COCB_W_CURSOR_COL] = 1; 


END; ! wrap not set - truncation 


DONE = 1; ' no wrap chars 


'¢ 

i See if this change should be reflected on the scr 

i Even if we call SMG$PUT _LINE_WIDE again, SNGSSCHECK. _FOR _OUTPUT_DCB 
; _Should be called only once. 
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RETURN 1; 
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ABS 
RETURN (SMGSSCHECK_FO 
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2E 


1-004 
: 11246 1381 IF .DONE 
: 1125 1 ¢ THEN 
: 11 8 1 BEGIN 
ray 1384 LOCAL 
: 1128 1 S? LINE CHANGED; 
3: 1129 1 § LINE_CHANGED = . 
; 1150 1387 & 
: 1131 1388 3 
3 11 ; 1389 4 
3 1 1390 4 
s 1156 1391 
: 1135 1 3 END 
; 1136 139 ELSE 
3; 1137 1394 
: 1138 1eg2 
: 1139 1396 1 END; 
04 
50 
10 
10 
| 


9°00 
BRS 


Dorococr BWOWO?r—co WOwowW 
PONOVPOH RNOWOOVCOCONMO NwWOMO 
an—0 $$ 0000 90 09 000 ~~ owmrTuo°0 0-9 99 
OWI = & FODUIWUIT = FOOD WO fF$OwWr" O 


7 


1B-sep-1984 09:22:24 yAKe11 BL is8-82 v4.0. 


URSOR_ROW] = 
PARAMETER (K_ADV_ARG) THEN 
7 bN ELSE OJ; 


OCB 
§mG$C_PUT_LINE 
LINE CHANGED) 5; 


! End of routine SMGSPUT_LINE_WIDE 


00488 
60 Q048C P.AAA: .BYTE 96 


OFFC 00000 sENTRY SMGSPUT_LINE WIDE, Save R2,R3,R4,R5,R6,R7,- 


RB,RO,RTO,RIT 
00002 SUBL2 #36, SP 
00005 STR_LEN 
00007 CLRL WRAPPED_CHARS 
0000A CLRL SCROLL_FLAG 
0000C MOVL @DISPLAY_ID, RO 
00010 CMPL 56(RO), SDISPLAY_ID 
00015 BNEQ 1$ 
00017 CMPB 68(RO), #17 
0001B BEQL 
0001D 1$ MOVL #SMG$_INVDIS_ID, RO 
00024 RET 
00025 2%: MOVL @DISPLAY_ID, OCB 
00029 SUBB3 #2, (AP)? DIFF 
O00¢0 CMPB DIFF, #5 
00030 BLEQU 
b003¢ MOVL #SMG$_WRONUMARG, RO 
000 RET 
OOO3A 3$: CMPB (AP), #3 
00030 BLSSU _4$ 
0003 TSTL 12 (AP) 
00042 BEQL 4 
tie TSTL @LINE_ADV 
0047 BGEQ 4 
0049 MOVL #SMG$_INVARG, RO 
0050 RET 
0051 4$: MOVZBL 46(DCB), REND_CODE 
0056 CMPB (AP), #4 
0059 BLSSU 5$ 
0 28 TSTL 16(AP) 
0 F BEQL 5$ 
0006 BISL2 @RENDITION_SET, REND_CODE 


rom 


; 0983. 


1102 


1137 


1140 


1142 


1143 | 
1145 
1152 


Re Se Oe Oe Oe OH Se Oe Be BH Oe See BHO He Se SHS Se Se Se Se SH OH Se Se Se HOH ee BH Oe we 


rr 


[ 


_— 
' 


_ Pee ee ee ee eT eT eee eee eee er ee ee ee ee eer ee ere eet er er er es ee ee ee) es ee oe ee es es ee ee eS ee es ee 


on ~ ow 0] om Tr © @© o ~N 
mw w oO ~ o wo o oO w o oO 
~ —_ - - - e- - - - - ~N 
- - - - - - - - - - 
a 
a oe oe oe oe oe oe oe os oe os os ee es es a es ee es ee ee ee ee ee ee eee et et ee eee eee eee eee ee ee ee ee ee ee ee ee ee ee ee ee ee 2 
eo 
a 
- 
** ww 
™N a 
wre o 
—<-@ ed 
nm - v 
's a 
ot 2 
"Qa w 
ww is 4 
oe a. 
a . [ve] 
NO _ oa 
m= zum Ww 4 z 
iw» w ec ad ws —_ 
awe = a oO a 
nv w ww ve < — 
‘a oo i | « ~ a f a 
_n a w oO o vo @®@ Oe a < 
@- = a Z2zaeaeeesev<«t vw <2 , — 
od ow (a a 24 @ «at ~ -~a Oo ” 
be v 4 we WM ~~ & S| & & a aw az 
-a + w Ow ws 'i™N a. Nor Mww~S UR o- e 
‘wo Zznw -*#@ OC ceaewoer~-, uo hk uC —-a2ae ~!1 wa - erm 
x= oO y+ DAR. & Ta om J of ad > > ' a ad a Oo 
«um w —O oI Aw “u 5 s © ._ Ou ™m a .°Aa lrl/| ss -_ Ff =O c= 
> & —-retetwnw + . Ll ale: Sn en: <q@a&tg=*es m_m —_— OAC . zal 
~ = Ze~ewrwn -m OUMR@ YY DM wu ~ 4 6 ~ “~@MODeOo -@ £0 -~Ooa- 
*= a2 28 *fuHwwD @ G@aVvAaY YW VY MW -_ oOo ww w .- a Mrervagea@Mv ww +s ODever 
~ « 2A - & oaMa a - - 6 Sf Es es = vaa OVO a-~ wv oc 
a. ~~ wem@ ++ <a <cV-ew ._ “= *ZTAOAAM~A-P=-§ HO. H~H aw~wn~ <co~wrOdow~rt 2A ~m 
TO FEROS WORK VE. ~ ONVNDOER— BOGS LONO UO UN ER NIM ee Ye IN Se Ye NOR OT OW OO 
sr ~~ ONO Be UE H-- OTBMONGTDRoOsO BV HY ee — Oe Be ww ee BB ORK Ee wT Oa NY eOae-s i 
No 
NO — a es; aD ad ed 
“7 + -_ ™N z=  @ = | dl = ee me iy) nme ex 3u3Q0 
om OMNI VM NII SOY BIGUYUIGOVIIIGTIT OVYVISITINNN YIN TE USN UN UNS 
o-  paretrt F< bt 4 eh fhe pert F $-5-3 S $4 Ft res fe PP AES 
= IMWOOMOOO Ia Ow Ij0 VE Z2OCkEZOEZSE YW UVDTE uM SVIDOOODVDVDOO VQ oOoOwo7v,D0oo 
+ 4 VOr-OxE ~FTSEOOZOOYT OV OLOYOEVOVCOr@O- OA Ov O-@MAQATETEvAFTEA FT OEZEEZEA 
on 
om 
te 
aa - = 
moo oe ee ee oh oP A 
rw A cra cas A Tal oO —™ ia 
eK MOT Ow TOW O SWI NR OWI OW OO SE OO’ fe TF OP MWOWT DVM OSL WOr- OWOwer- @ 
OOOO Or-Pf-f-DOWDODOSOOSOO eee OMOMOMMDOMVVVVV VV ACO 0 CO OWWwwwenwuwu se OOCCe eK — 


—eUWNVODOOO0D — GPR FWA NOK HNO EK NE BE NMINWN OO EWN OO OV VON OU OOWUP USTUW 
O— OF VO OQOOUWPKHMOYVOOWO Of Or OOK Om OF OB OK OK A BOMMM OO PIPN OE OM OMUMO 


VION VVOO KK VNWOOCOVMWOWOM — ZOMNVWMOe VO LOM VVUOMUR. —- — OOO COOOOR. OFr-OO0- OO 
Teen eee SS SS NS SSS as 
- 


it) 
14 
000000006 


oO ~rooc eo 
o mom N 


oc 
oc 
oc 
oc 
06 
48 
28 


woo ww COFCO -—O-@® 


05 
A 
5 
AE 
~ 
08 
50 
50 
E 
16 
A6 
6E 
A6 
6E 
01 
03 
03 
7 
5 
5 
5 
? 
? 
0 
5 
5 
5 
5 
5 
5 


10 
C 
4 
8 

08 

a8 

48 


000000006 


AE 


SMGSPUT_LINE_WIDE = Put Wide Text to Display in 
14 


_DHD peel er double high/double wide chars 


 SMGSDISPLAY 
, 1-004 


| 
| 
| 
| 
| 
| 
| 
| 


| 
i 
| 
| 
| 
| 


Me Oe OS PS oe Se ee Ee eR ES Oe OR He FS Re ER OR FR ES ES FES ES FS HR HS HR TE ES PS HESS HE TS HSCS TS HS HS FS HSS SSCS FES *S*S Stara rteatares 


-—-~ i.) one Nu -—OCOr oOo w~oO al oo o 
mm Oo _- at Lal so MNcucUCY wm ww wy wow Oo 
~~ w N fav iat iat) ™N cucucucuCU Nu CN ~N Nu ON ~ 
— - ere and Greer Ee - ro - - - - 
a 
Le] Stee Fete Fe FS Fe Fe Fe Fe FS FS FS FS FS HS HS HTS HS HTS HS HS KS HS HS HS HS HS HS HS HS HS SHS HS HS HS HS HTS HS SHS HSS FSCS HS HS HS HS HS HS HS HS He HS 
a 
a te] 
_— 
= 
@ 
t 
_ t t 
=< ~~ ~ 
w =< 
—- w ive) 
uw Co a 
- ~ 2 z 
*. oe _ a 
™N w a ' 
~_e ao & _ 
7-@ =z « « 
™ « — « <I 
‘zs ce - fs 
oz - w ” wi 
cy =) a ~~ ~ “ 
ww <= “ 
> _ . . | 
a ” Oo Oo @ 
NO _- =_— _— 4 
m= is = oO oOo 
wm . oa [+ 4 
aor oO . . t 
wv wu - ~ -~ _ 
-e& 2S] <= @ @ =< ~ 
~” @owm Lv =) w @ o One 
@: see .* 2 a - YL 4 <2 
—~+ aac uN ~ 4] a a Ss wD ab 
-— ee mm oO Ls) ax -_ ~ ou @DM ws 
-—-c& we TO zw w Oo ac > A ~ wT OAL i'w [ &) 
to &tvue- Lam] an ese Vest anwado @f® ~ qua 4 Ga Jj 
x= a ~ ove “— av - w AXr-—ae wv BS a WO dd 
qin ese ~ ADue RDO Rw F- w ce oa Are arm oOo . oe wF Ow Ou. 
ee * n° ss ee es ee oT ad ” Qa2zO0O Oct ++ ~® =e wo ~~ &enm eis 
QOoga-- ”© OW” | @Marw ~ u OQOuwwvy Feww cu a — Ion w vw 
VVeu@a ~ wom tt wa wwGae:eaie Gait §' MMD]D Ss G4. ._ = wa += W ._ Mw 
anaw —-a =<z=-a a- <« <« a =) aed ~ «tf A ~ OWA a oOo 
-~~Q OO + ——iO sh ~ + SO M~OTH FAEFZMD * ~<a AA rer ArAZC~P-A WR +H 
TO OOww~erf§ OC OF TTOVUEOnr CINONVORK Ree WOOORF — @— eo TST COCO N VO SKK VENUM 
ws §—WwWOCER RU RIN BBBWH Ke VK BG BOOYNTORIANMN Bw — VY TBRIVYSNYNB~ VANS NVAawr 
No 
NO od a @ | 
o- Bn wn Oh mw 3 =< oOo ~~ ae | Ps z= > 
Om YSN VY SY ON MMO ITOMIIYT TET ITIUYUMHY BOVIININYOS woesow 300 
Oo- >>r>roOov> > §-§SO> FQ 2>444F- GYHOMMNYNYYH USO>P POA Ve wrva HNOOMeM@MAwr@Maw>r>aw 
O0007T2ZO OC MWO DOAODODE tIVMWDSFDDDDIIIOIUVOWOE IM ZOZE IZ siz ZzZoczeZoZS 
wt EEEEHY—-F ££ +-OF FCHIEZOCO-@MAWMAAGAAAVE OSC lVO- Of —CO—-OvOvrOAEOvr-OAE-D | 
aa ' 
oon | 
er 
‘se j 
aa - « oe 
~eoo A AA fea ee he ea as | 
mn wee mo ™ o o Oo — ~ 
-—e - Ce ee - =. - Nm Nm N ; 
~w 
—— OF DVONM 4 ONT ODWOPMH owe TOS DWOTUMDMOTDVO-—- MD Ff Oe VT EUW O EV er wr EO 
ROSIN PIN AT ST TT TUOMNMNULN OOO OOOPR-P-P-P-F-P. DODO OOOOCOO ce eet et OOMODOMMDOVV Vw 
c Ce ce ee cel eel eel el ee eel ee ee ee ee el ee ee ee cee eel et ee ee ee ct ee ce el et cee ee el ee ee el eh ce ee ee el eh ee ee eet eh ee oe ee, eet cee cet cee eet cet ee ee ee sel 
-—- DOOOCOCOOCOCOCOCOCOCOCOCOCSCOCOCCOCOCCOCOSCOOCOCOCCOCOCOSO OOOO OCOOOOOOOCOOOOOoOSoOoOSS 
= OOOO OOOOOOOCOCOOCOCOCOCOCOOCSOOCOOSOCOCOCSOSOOSCOOOOCOCOCOCOOSCOOCSOOCOOOOOOOOOOoO 
B® DOOYNOY YY MMV VOODOO KLEMM O— COD BOBODODOTORK UMVYVOOO ORK TORK NOK KK NOeK™N 
4 2oQMLON WW OF NWN MVOOOO Or Or COCO Gu OWwOoOOCOOs On- Mowe O- Ow O- Or Ooo 
7) 
—- OOOO LOCOCO DDOO OK — WY DZOMNUN  WWWOWOWW K—ONUMPOOSTR OWWRKNKOrMUWO 
a” Ee ae COWOCTWOONMNOCOCWOOODOCCOC ooown 
Zo 3s. 
a 
= owwowo =) Y wo wow ooo Vu Vv oO 
Ve eee O wT _- - -— NMS oo Oo Oo 
a 
ow 
nol 
- 
ze | 
on 
age 
—~2 oomdadam w w w COoo°o rr oumno worm ee <& ro w OO We 
8 mown «=O oO oo MINOW oO oatom «to wie -< oOo << OO 
ca 
o> 
0a oO 
~ i ou c-¢ < fae) 
xt wv oo ™N ~w w | 
ao Oo 
~~ as oO i 
£a o 
_ o 
as o 
—_ § oOo 
Qw 
32 Oo wo o eo 
o- u <« <x < | 
v4 | 
6 
~— 
a2 [ve) oO <= j 
~a ~N al w | 
os 
no 
-= | 
am | 
o | 
= 
a <«<« <« a oO 
Q ww wn wn 
> 
<« 
—_ 
a 
” 
— 
ov 
33 
=i 
Ne 


| 


po ° ‘sae tans ae 


1 Blis 
SMGRTL.SRCJSMGDISDHW.B 


? 
w$ep-1986 19:69:40 


F 
6 
4 


1 
ni 


- Put Wide Text to Display i 


LINE WIDE 


-004 


| SRGSDISPLAY_DND Rt epley double high/doubie wide chars 
SMGSPU 


N YS mwemon mM FOO - mm wh oOo OCoO - 
oo oO So O~Y OD OD OOO Cr Oo QO COr - 
NU ON NU ON NS ON CUCU NN ON NN NOP Al 
_— — - re - - Ck geek oo - - - _- -—— _— 
oT ae eo ee ee ee ee ee ee ee ee ee ee se es es ee ee eT eT EEE eee OL eT eee eee eC eLeLeLererererererer ee. ©. a. er 2 o 
4 -_ <a 
w [* 4 w 
a a 
<= ba << 
t ~ t 
af @ Oo Oe ad 
~ (J Lv <= <2 -~ J 
~~ —~ aa on oO a ~ a ~~ oll ~ —~ ~~ on ~ w 
@ a an aa ec ~ owe @DMWnewese @ a aw «<c£on~ & 
Vv nor Yw~ VLU wT OAL ‘wv ao ww nO mw~ vwvikk«€« 
a -ecoe ~t na . ~ <qIoa —~+—§ & aji<« oe ~aco ~ 1 Se = ae 
~ iH g Aa~ > ase we Ww ahah ww 4 ‘ Aa~r~ aw 
wT ss *- Aw ao = cna ue TS ON Ou atlas > Aw m | ~ 
~ “nm —_— Or <z<zewo nT ~~ Eeme He i été ee -— OK A~O Re 
-“~@@Do -@ = f e-_- & Im ev OD ad -@@Do -O = mow 
. @Mvervae-@w + w ‘ce ~~ wa:+ . Mo . Mevae-n@gv s+ wea . 
~ L2LAaa OVA ~ 2a oun ~ o ~~ v,aa OVvO ~~ a a ~ 
~on eave~w~ Sard +- HHA + PA WMPIwH~h-A HH +THrH aw~ *co~d ~-*Hw~ +e 
SMe ee INI YS YS NOR. TO UN TOOCOONVO EP. —-DEOVUVO ZGROOR— YY FN RY Ye WOR Gere ee a 
~WVB BOPP. Ee Th COBY MM BMwr TZ BVM MNMBSB~ VRBVU~SWVBMHOU~Y~WE BOPP eer ORY Hr BSIME 
att Mii ) aw S33 
jISssBsvai SBM D 32N> ee SS eee ee | 
Bot INNN VIN Ir Uu3sS Jon INOS +HaV3BO4 3IdO4UI0 BIT INNN SUINN TUBE BOSCO OM 
ASGMM >> rOv> rw UAWO>wradcNoe@ec@MawrMaw>r>aAawt OnNNS > reo >> U0 Sr ww sa 
ZwymVDOOO DDOO De E= utOislO42s YOS JUIF SOE ZOTFZSEwDDIOOCO BDO O DA ZV V7aAE oI 
VMGAO FFBEMOAFSFOACVOO®T OF CVOIOVOVOM TOV OZ Ov @MAATEBEvOAFSEOAVVOZOr-OOr~D® 
ef Bh APM a as FARA HAA 
~~ w mo ~ f. *] oC Ow MmM-gT 
™N ™N num N ™N NM RTPORN BORO 


APU OO MO Ou MUNVOA TO st OOODMOL Ml OoOwsr LV TO EWN DH VOUS OEP BV 
VOOO0 OS OWWWWWk & 46 QOD OOO ee NINN NIIP TST TT TT TMOMNUN OOOO OP-P-P-P-F- OO 
ICICI NID CII ONION CSI OI OI OSI OIC OICOIOSOIOIOIOIOIOIOIOI I COIOIOIOIOIOIOSONIONINS 
OOOO OOCOOOCOCOCCOCOCOCOCSCOOOCSCSOSCOCVOCSCOOCOOCOCOCOCOCOOCOCOOCOOOOOOOOOOOOOOoOoOO 
COOOOOOOOCOOOOOOSCOOCOSCOSOOOCOOSSCOSOCOSSOSOSOOSOOSOOOCOCSCOCCOOOOOOOSOOOOoO 


—MOOVVUN 4s VY OO Or OMNVO OCS K— TOK NOK KNOCK NE MOOVVOUN LE VV OO LOOWNNR — & 
@O-— OOMMOM VO PMm Ow Or — OF MOWH fo OWO O- Or OO Oe CQOMMMVUOMM Ou O- DODO MO 


Vr OOO OOOORP. Ou VOR COMO CB WW NN OP MUWOR-PR-O- OOO - OOOORF. J Om WM Ue 
WVOO FT TAIN TI IMNOOVOVODOONOCOMM DO DOCOCOWOOCOCWONVONMNOET eT ante aInowoo to — 


Oo 
waitwo -~wo v oe woamtwo -~woO <x<« vw 
over OOo oO Oo over OOvt -7—- 

~o wo-o ww oOo orcrO & row OO we OO wo-o ww OO Rw Ladi) 
=< RKennwn FE Oc nw wmme oO -< ©O <«t woo <« KnnmMm Re Oct OM o 
o o 
<x oat << co < oc t 9) 
w ow ~w w w ow oO 
oO So 
Oo o 
Oo oS 
Oo o 
oO o 
oO o 
eo 
a 
< 
~w 
eo 
w 


ONDONVUISNMO-O 


7 
| SMGSDISPLAY_DHD Display double high/double wide chars 1e-se -1984 00:22:24 AX-11 Bliss-32 V4.0-74 P 
Longe SMCBPU _LINE.WIDE>= Put Wide Text to Display in 12286871382 99:85:20 SMGRTL.SRCISMGD1 SDHW.B 2:1 ae 3 
Oc AC D 4 TSTL 12(AP) : 
08 3 7 BEQL 385 : 
oC BC D 9 TSTL LINE_ADV ; 
A 14 C BGTR 6$ : 
03 6¢ 91 00 35$: CMPB AP), #3 3 1312 
1F 0029 BLSSU $ ; 
oc ac 3 029 TSTL 12(AP) : 
E4 12 00 36 BNEQ $ ; 
06 6C 91 00298 36$: CMPB (AP), #6 3; 1315 
4B 1F 00298 BLSSU ; 
18 AC Be 00290 TSTL 4 (AP) : 
46 13 002A BEQL : 
18 BC DS 002A TSTL @WRAP_FLAG 3 1316 
41 13 Q02A BEQL : 
26—OAE O10E 8F B80 002A7 MOVW #270, STR_DESC+2 3 1324) 
24 «OAL 04 AE 14 AE A3 002AD SUBW3 HALF_NO_COLS, STR_LEN, STR_DESC 3 1325) 
28 OE 18 AE 14 AE C1 00284 ADDLS HALF_NO-COLS, STRLADDR, STR_DESC+4 : 1326 
20 «AE 01 00 00288 MOVL #i, CLS ; 1328) 
07 6C 91 002BF CMPB Ss (AP) , “# > 1329) 
OA iF ooece BLSSU $ ; 
1c =6AC DS 00204 TSTL B(AP) ; 
05 13 002C7 BEQL : 
20 «AE 1¢ «=6©BC ODO Boge? MOVL @CHAR_SET, C_SET 3 1331. 
20 AE QF OO2CE 37$: PUSHAB C_SET : 1333 
7 14 AC 7D 00201 MOVQ RENDITION_COMPLEMENT, -(SP) 3 1337) 
7E OC AC 7D 00205 MOVa LINE_ADV, =(SP) 7 1335) 
38 AE 9F 00209 PUSHAB STR_BESC ; 1333 
04 AC DD 0020C PUSHL DISPLAY_ID 3 
FDIC —sCF 07 FB O02DF CALLS #7, SMGSPUT_LINE_WIDE : 
52 04 002E4 CLRL DONE 7 134 
68 11 002E6 BRB 44$ : 134 
31 2F A 01 €E1 O02E8 388: BBC #1, 47(DCB), 418 3 134 
02 08 BE €E8 O02ED BLBS a8(SP), 39$ ; 135 
67 B7 002F1 DECW (R7) : 135 
2A AG 14 AE BO 002F3 39S: MOVW §HALF_NO_COLS, 42(DCB) 3 135 
01 DD 002F8 PUSHL #1 3 135 
FDO1 CF 9F QO2FA PUSHAB P.AAA > 135 
01 OD ooere PUSH #1 ; 135 
50 1¢ «AE 00000040 8F (C1 00300 ADDL #64, REND_CODE, RO s 135 
50 DD 00309 PUSHL RO 3 
56 DD 00308 PUSHL DCB 3 1357) 
000000006 00 05 FB 0030D CALLS #5, SMGS$PUT_TEXT_TO_BUFFER ; | 
02 08 BE E8 00314 BLBS a8(sP), 40$ : 1362 
6 B6 00318 INCW (R7) > 1364. 
2A AG 1 BO O031A 40S: MOVW #1, 42(DCB) > 1366 
52 01 DO 38 1E 418: MOVL #1, DONE 3 1373 
2c 52 £9 00321 BLBC DONE, 44$ > 1381 
03 6C 91 00324 CMPB (AP), #3 > 1387 
10 1F 00327 BLSSU 428 ; 
Oc AC 3 00329 TSTL 12 (AP) ; 
0B 1 88 C BEQL 42$ 3 
50 Oc BC DO 00 5 MOVL a, INE_ADV. RO ; 1388 
s ee Bp mech Ay no : 
; ff : 7 BRB Ms ; 
5 Be Boe 9 rt + CLRL RO : 1387 
51 67 3C 00338 438: MOV2WL (R7), R1 ; 
| 
L 


H 7 
SMGSDISPLAY_DHD Dis Lay double high/double wide char 16-Sep-19 24 AX=11 Bliss-32 v4.0-74 Page 34 
1-004 smc éPUt LINE “WIDES Put Wide Text to ‘Display in 12-38-1382 09: 6: 40 SMGRTL.SRCJSMGDISDHW.B32;1 . (3 
50 51 5 C3 0033 SUBL3 RO, akan _ CHANGED ; 
dd és PUSHL tTie. : 1391 
$6 bb 0084 PUSH Swe 
000000006 00 88 FB 00 18 CALLS a SMGS$S$CHECK_FOR_OUTPUT_DCB : 
04 00 4F RET + 1394 
50 01 DO 00 50 44$ MOVL , RO : | 
04 0035 RET + 1396 
; Routine Size: 852 bytes, Routine Base: _SMGSCODE + 048D 


3; 1140 1397 1 !<BLF/PAGE> 


po 
SMGS$DISPLAY_DHD etoels 
1-004 SMGSPU 


1398 1 END 
1400 0 ELUDOM 


Name 
_SMGSCODE 


File 
5SDUA28: CSYSLIBISTARLE 


5$DUA28: CSMGRTL.OBJISM 


; Lines/CPU Min: 1841 
; Lexemes/CPU-Min: 17479 
; Memory Used: 339 pages 
; Compi.cation Complete 


double high/double wide chars thesepe19 4 ; we! $66 
LINE WIDE = Put Wide Text to Display in 1e-8ep-1986 


$25 T.L3 
“$255$DUA28: (SMGRTL.OBJJRTLLIB 
$25 GLIB 


AX-11 Bliss-32 V4.0-7 


! End of module Pie gents 


PSECT SUMMARY 


Bytes Attributes 
2017 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
Library Statistics 
ene Symbols ocne<ere Pages Processing 
Total Loaded Percent Mapped Time 
2;1 9776 16 0 581 00:01.0 
«L32;1 36 0 0 4 00:00.1 
-L32;1 469 30 6 3 00:00.3 


COMMAND QUALIFIERS 


; Size: 2015 code + 2 data bytes 
; Run Time: 00:45.6 
; Elapsed Time: 02:08.8 


SMGRTL.SRCJSMGDISDHW. ; 2:1 


Page 35 
. (6) 


BLESS/CHECK SCF SELB, IMI TIAL .OPTSAIZE) /HOTRACE/L I S01 158: SGOT SOMN/OB.J 908 JS: SEDI SOM MSRC$:SMGD I SDHW/UPDATE=(ENH$ : SMGDI SDHW 


NT CORPORATION 
D PROPRIETARY _ 


AH-BT13A-SE 
VAX/VMS_V4.0_ 


1356 


